SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00030_Stop Transport Button.ls

Text File | 1995-10-13 | 642 b | 22 lines

on mouseDown
  global giVidSprite, giVid2Sprite, giTempVidCast, giTempVid2Cast, giTempVid3Cast, giVid3Sprite
  buttonLogic()
  if the result = 1 then
    if the visible of sprite giVid2Sprite = 1 then
      set tempSprite to giVid2Sprite
      set tempCast to giTempVid2Cast
    else
      if the visible of sprite giVidSprite = 1 then
        set tempSprite to giVidSprite
        set tempCast to giTempVidCast
      else
        if the visible of sprite giVid3Sprite = 1 then
          set tempSprite to giVid3Sprite
          set tempCast to giTempVid3Cast
        end if
      end if
    end if
    cRollVideo(0, tempSprite)
  end if
end